home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / misc / amag / AM95032.lha / Tips&Tricks / Icons entfernen / dismount < prev    next >
Encoding:
AmigaDOS Script File  |  1994-11-27  |  259 b   |  17 lines
  1. .KEY VOLUME/A
  2. .BRA [
  3. .KET ]
  4. failat 21
  5. ;
  6. ; dismounted Volume und Device
  7. ;
  8. set device `c:GetDeviceName "[VOLUME]"`
  9. if not warn
  10.    assign >NIL: "[VOLUME]" DISMOUNT
  11.    assign >NIL: "$device:"  DISMOUNT
  12. else
  13.    assign >NIL: "[VOLUME]" DISMOUNT
  14. endif
  15.  
  16. unset device
  17.